Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/vbboid/boidmain.frm

Visual Basic Form | 1999-09-18 | 42KB | 1,262 lines

VERSION 5.00
Begin VB.Form frmMain
   Caption         =   "vbBoid : Example of emergent behaviour
 RL 1999"
   ClientHeight    =   8055
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   11190
   ForeColor       =   &H8000000F&
   Icon            =   "Boidmain.frx":0000
   LinkTopic       =   "Form1"
   MinButton       =   0   'False
   ScaleHeight     =   8055
   ScaleWidth      =   11190
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame4
      Height          =   8055
      Left            =   0
      TabIndex        =   69
      Top             =   0
      Width           =   1875
      Begin VB.HScrollBar HScroll1
         Height          =   255
         Index           =   3
         Left            =   120
         Max             =   50
         TabIndex        =   96
         Top             =   360
         Value           =   30
         Width           =   1575
      End
      Begin VB.CommandButton Command1
         Caption         =   "Clear"
         Height          =   375
         Left            =   960
         TabIndex        =   95
         Top             =   7080
         Width           =   855
      End
      Begin VB.CheckBox chkEnclosed
         Caption         =   "Enclosed"
         Height          =   375
         Left            =   180
         TabIndex        =   94
         Top             =   6660
         Width           =   1335
      End
      Begin VB.CommandButton cmdExit
         Caption         =   "Exit"
         Height          =   375
         Left            =   60
         TabIndex        =   87
         Top             =   7500
         Width           =   855
      End
      Begin VB.CheckBox chkShowCentre
         Caption         =   "Show"
         Height          =   255
         Left            =   840
         TabIndex        =   86
         Top             =   720
         Width           =   735
      End
      Begin VB.HScrollBar HScroll1
         Height          =   255
         Index           =   0
         Left            =   120
         Max             =   10
         TabIndex        =   85
         Top             =   960
         Value           =   3
         Width           =   1575
      End
      Begin VB.HScrollBar HScroll1
         Height          =   255
         Index           =   1
         Left            =   120
         Max             =   10
         TabIndex        =   84
         Top             =   1560
         Value           =   3
         Width           =   1575
      End
      Begin VB.HScrollBar HScroll1
         Height          =   255
         Index           =   2
         Left            =   120
         Max             =   10
         TabIndex        =   83
         Top             =   2160
         Value           =   6
         Width           =   1575
      End
      Begin VB.TextBox Text6
         Height          =   285
         Left            =   1200
         TabIndex        =   82
         Text            =   ".5"
         Top             =   3060
         Width           =   495
      End
      Begin VB.CommandButton cmdExecute
         Caption         =   "Execute"
         Height          =   375
         Left            =   60
         TabIndex        =   81
         Top             =   7080
         Width           =   855
      End
      Begin VB.TextBox Text5
         Height          =   285
         Left            =   1200
         TabIndex        =   80
         Text            =   "80"
         Top             =   2580
         Width           =   495
      End
      Begin VB.CheckBox chkGrid
         Caption         =   "Show Grid"
         Height          =   255
         Left            =   180
         TabIndex        =   79
         Top             =   5160
         Width           =   1335
      End
      Begin VB.CheckBox chkTrails
         Caption         =   "Show Trails"
         Height          =   255
         Left            =   180
         TabIndex        =   78
         Top             =   4800
         Width           =   1335
      End
      Begin VB.TextBox Text7
         Height          =   285
         Left            =   1200
         TabIndex        =   77
         Text            =   "4"
         Top             =   3540
         Width           =   495
      End
      Begin VB.CheckBox chkShowSep
         Caption         =   "Show "
         Height          =   255
         Left            =   840
         TabIndex        =   76
         Top             =   1320
         Width           =   735
      End
      Begin VB.CheckBox chkShowAlign
         Caption         =   "Show "
         Height          =   255
         Left            =   840
         TabIndex        =   75
         Top             =   1920
         Width           =   855
      End
      Begin VB.CheckBox chkShowSensor
         Caption         =   "Show Vision"
         Height          =   255
         Left            =   180
         TabIndex        =   74
         Top             =   4440
         Width           =   1335
      End
      Begin VB.CheckBox chkShowBox
         Caption         =   "Show Obstacle Box"
         Height          =   375
         Left            =   180
         TabIndex        =   73
         Top             =   5520
         Width           =   1335
      End
      Begin VB.CheckBox chkShowColours
         Caption         =   "Show Colours"
         Height          =   255
         Left            =   180
         TabIndex        =   72
         Top             =   4080
         Width           =   1335
      End
      Begin VB.CheckBox chkShowArrow
         Caption         =   "Show Arrow"
         Height          =   375
         Left            =   180
         TabIndex        =   71
         Top             =   5940
         Width           =   1335
      End
      Begin VB.CheckBox chkShowCircle
         Caption         =   "Show Circle"
         Height          =   375
         Left            =   180
         TabIndex        =   70
         Top             =   6300
         Width           =   1335
      End
      Begin VB.Label Label3
         Caption         =   "Boid Count"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   97
         Top             =   120
         Width           =   1695
      End
      Begin VB.Label Label3
         Caption         =   "Centre"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   93
         Top             =   720
         Width           =   735
      End
      Begin VB.Label Label3
         Caption         =   "Separate"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   92
         Top             =   1320
         Width           =   735
      End
      Begin VB.Label Label3
         Caption         =   "Align"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   91
         Top             =   1920
         Width           =   735
      End
      Begin VB.Label Label3
         Caption         =   "Sensor Range (Pix)"
         Height          =   495
         Index           =   3
         Left            =   120
         TabIndex        =   90
         Top             =   2580
         Width           =   975
      End
      Begin VB.Label Label3
         Caption         =   "Max Turn (Rad)"
         Height          =   495
         Index           =   4
         Left            =   120
         TabIndex        =   89
         Top             =   3060
         Width           =   735
      End
      Begin VB.Label Label3
         Caption         =   "Field of View (Rad)"
         Height          =   495
         Index           =   5
         Left            =   120
         TabIndex        =   88
         Top             =   3540
         Width           =   855
      End
   End
   Begin VB.Frame Frame3
      Height          =   7215
      Left            =   11760
      TabIndex